package body Station is
   function getName(The : Stat) return str is
   begin
      return The.Name;
   end getName;

   procedure setName(The : in out Stat; name1 : str) is
   begin
      The.Name := name1;
   end setName;
end Station;
